88888 


SSSSS88888 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 

PPPPPPPPPPPP 
PPPPPPPPPPPP 


AOMAAAOIOAOAIOOOONY 
AOMVOOAOOOAIAIAIOOOOY 
AOAOAOOAQAAIOAOOOOONY 


000000000 

000000000 

000000000 
000 


000 
000000000 
000060000 
000000000 


**F ILE**1D**T TIMESTAMP 


a a a 


aaaa 
aaaa 

aa aa 

aa aa 

aa aa 

aa aa 

aa aa 

aa aa 

QaQaaaagaaqaaadaaaaa 

aaqaaaaaaaaaaaa 

zzz z=z [= = = = ws 

PEEERESERRERES 
qaqa cdaaacaaaaaet 
qaiddataaaaaaaa 

<< <<a 

a @ << 

<< << 

<< << 

<< << 

<< << 
qaacacctaaaaacaet 
qadatdaaaaaaaae 

os 

— 

— 

—— 


Ce ee ee Oe 
a ee ee 


— 
os 
oe 
nn vynnn 
mn NNNWM 
nn rw nw 
nn mw an 
nn nw nn 
mw nn nw 
mn wn nn 
own mw nn 
YNNN nn 
YNNNM nw 
ww ww 
wu ww 
wus ww ww 
wu wu wu 
wus wu wou 
ww ww wou 
wus wus ww 
ww ww ww 


Ww Od ds sa a 
Ww dd a sd as ss 


| oe heme “— 
“ee | hem) 
8 Ok nd nd Od Od Od ad Pd Od Os 
Sk OS Od Ok Od Od Od nd Od Od OG 
“o ee 
— —_— 


en ee ee ns 
a a a et 
ee 


mn munnn 
nn MMMM 
nw nn nn 
“mn nn nn 
“wn “wn nw 
mn “wn nn 
mn “ww nn 
mn “nn nn 
MMMM nn 
MMMM mn 
nem = 


“oe —e, 
Pt et a nd ee ys Oe ng ee 
A as ae at ne ng Ons nn ne Oe Oe ee 
St Conkomny 
— —oe 


LLLLLLLLLL 
LLLLLLLLLL 


10 | 
poh aion 18-Sep-1984 1: 2352 AX-11 BL Ligs=32 V4.0-74 Page 1 


14-Sep-1984 12:50:59 OPCOM.SRCIJTIMESTAMP.B32;1 (1) | 


VAX/VMS operating system. 


Oooooocoo 
RRERRRK 
OU Wn—oO 


Steven T. Jeffreys 


ey ] Q MODULE OPCSTIMESTAMP (acces | ; 
; § 008 IDENT = Piven tit ’ ; 
Py = Ps 
3 5 005 3 
; ° 44) Ipeisanpr ssgprampsmnyaicneme ror mong non sarmare : 
: 2 098 ie COPYRIGHT (c) 1978, 1980, 1982, 19848 * : 
F 9 00 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . ; 
. 19 Baie :* ALL RIGHTS RESERVED. . ; 
: ig Oote ie THIS SOFTWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
fa. % 1 i@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN SE AND WITH THE * 3 
ie 0014 i's INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | : 
SS 015 9 is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | ; 
: #16 0016 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
3 7 9017 0 is TRANSFERRED. . | ; 
: 19 0019 0 i* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | ; 
; 20 0020 0 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | : 
: 31 9021 0 is CORPORATION. ® ; 
Py . ® . 
; 28 8538 0 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | ; 
; 3 0024 9 is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ | : 
; 26 0026 0 it ® | ; 
; $i st 34 ee gd et eet ae mee et ee ee ree ‘ 
: 29 0029 0 !+4 : 
; 9 9030 0 i FACILITY: | : 
: 0033 0 sree | 
; 36 0054 2 i ABSTRACT: | 
; 36 0036 0: This module contains all the various and sundry general : 
: i st HA 4 purpose utility routines used by OPCOM'’s request handlers. | : 
: 39 0039 0 ! Environment: 3 
a; “4 8 : 
3 42 0 3 
ig ; 
: 65 6 : 
3 46 0 3 
-  @F 0 3 
:; 48 0 3 
3 49 0 g 
; = 3 
i ; 
: 54 6 : 
 § 3 


' 
' 
' 
i] 
' 
i] 
! 
' 
' 
i] 
' 
! 
' 
: Author: 
' 
1 
' 
' 
' 
' 
' 
i) 
! 
' 
' 
' 
i] 


0047 0 | Creation date: 
0048 
0049 March 10, 1981 

050 ; 
b2 ! Revision history: 

0088 v03-005 CWH3005 CW Hobbs 25-Jul-1984 
Boe Tune the workset purge algorithm to eliminate purges on 
Bpee @ quiet OPCOM. 

$087 V03-004 CWH3169 CW Hobbs 55-May-1984 


SS ‘ rc 
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38 R38 : Second pass for cluster-wide OPCOM: 
5 : - Slow from 15 second timestamps to 5 minute timestamps. 
60 060 : - No longer do configures during a timestamp. 
2 $2) - Purge the working set on an hourly basis. 
ef 3068 i v03-003 CWwH3003 CW Hobbs 16-Sep-1983 
rt: Oo¢s } Clear ioerr flag at each timestamp 
66 066 9 / v03=002 CwH3002 CW Hobbs 30-Jul-1983 
6 067 : Various and sundry things to make OPCOM distributed 
os $43 } across the cluster. 
70 090 i v03-001 $TJ3031 Steven T. Jeffreys, 05-Oct-1982 
71 0071 : - Added the IMPLICITLY CANCELED routine. 
7 O76 ' - Added the IMPLIED_CANCEL routine. 
7 007 ! = Added the IMPLIED_DISABLE dummy routine. 
74 Bane } - Flush the logfile if it has been written to. 
76 0076 0 i-- 
77 0077 
78 BEGIN ! Start of TIMESTAMP 


LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 
LIBRARY ‘'LIB$:OPCOMLIB'; 


FORWARD ROUTINE 
TIME_STAMP : NOVALUE, 
IMPLICITLY_CANCELED, 
IMPLIED_CANCEL : NOVALUE, 
IMPLIED-DISABLE : NOVALUE; 


Periodic wakeup routine 

Determine if request canceled : 
Perform implicit request cancellation 
Perform implicit operator disable 


BUILTIN 
INSQUE, 
REMQUE ; 


Insert entry onto a queue 
Remove entry from a queue 


Be Se Se Se ee Be Oe Ge Se Se Oe Ge Be ee SH Se Se Oe Se Oe Se Se SH Se Se Se SH Ss Oe OH Se Oe Se Seae 
~ 
uw 
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095 1 GLOBAL ROUTINE TIMESTAMP : NOVALUE = | 
4 1+4 
4 ! Functional description: 
09 TIME_STAMP is an AST service routine that is executed periodically 
09 to cause OPCOM to perform its periodic timestamp function and then 
1 issue another timer AST request. The timestamp function is to remind 


all epereters of outetand ine requests. If the operator has the 
NOREMIND option set, then the operator will not be reminded. 

TIME_STAMP uses an interlock mechanism to insure that the timestamp 
will not occur at an inappropriate time for OPCOM. 


No timestamp message 19 out icity logged, but messages may be logged 
as operators are implicitly disabled and requests are canceled. 


po fofofelelelololeolq) 
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Input: 
None. 
Implicit Input: 
None. 
Output: | 
None. 
Implict output: 
None. 
Side effects: 
None. 


Routine value: 
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None. 
BEGIN ! Start of TIME_STAMP | 
EXTERNAL ROUTINE 
ALLOCATE_DS ' Get structure 
CLUSMSG_ACK_PLEASE, ' Request acknowledgement from a remote node 
CLUSMSG STATE SEND, ' Tell cluster about current operators and requests 
DEALLOCATE_ROTB, ' Return RQCB structure 
FORMAT MESSAGE, ! Format a message ; 
LOG_MESSAGE ! Send a message to the log file 
NOTIFY_LISTED_OPERATORS; i Notify a given operator 
EXTERNAL LITERAL 
ROCB_X _TYPE, ! Type code for RQCB structure 
MIN_SCOPE, ! Minimum scope value 
MAX_SCOPE; ! Maximum scope value 


MERE EEA III RPI NINININNDY 2 2 SS OS SS OOO OOCOOCOO Webelelts! 
Boe RS RR ESSENSE FUNAS SSN PU  SOOMNO nF WVIMOSR UR AR OO Doe ee 
COCCCOOCOO OOO OO OOOO OOOO OOO COCO CO OOOO OCC OCC OOOO COCO COCO COC OCCO 
alt el el elt elt ll cells eels cel cecal ells cel celle cls ceils sels els ls cecal alls els ls calls cls elt lt cls cells cea cal cecal ls ls lls cecal cess cls celts cess cells ls call lls ells alls sails assis anal amills 

BPP PP EEE BE MANALI ARI PIPPI PININININUNY 2 2? SS OO oO 


ee a ee ee cee ee me ae ee et a ee a a ee ce ee ee a a a ee ed ee ed ee ee ed ee ed ed 
RaPORoPORoNoNoRoNNONONONONONDS 2 4 9 9 
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' 
| 
If shutdown is pending, then do nothing. 
if _;,LOBAL_STATUS CGBLSTS_K_SHUTDOWN_PENDINGJ | 
BEGIN 
GLOBAL_STATUS CGBLSTS_K_TIMESTAMP_PENDING] = FALSE; 
RETURN; 
, END; 
i Set GBLSTS_K_TIMESTAMP_PENDING. If OPCOM is busy, then return. 


ooovnovn 


151 1 EXTERNAL 
1 ¢ 1 LOGFILE_RAB $Sbblock, ' RAB for operator logfile | 
1 1 OCD_VECTOR VECTOR ' OCD List Reeds 
154 1 GLOBAL_ STATUS BITVECToR, i Global status bits for OPCOM 
155 1 NOD_HEAD VECTOR (2, LONG], ' Head of node queue 
! § } i : prel .pbleck. goite eine quadword 

: ‘ ' Swap out page count 
136 : LOGTIME_COUNTER : LONG; ! Founter for’ los file timestamp messages 
160 1 GLOBAL ' Make it easy to find with SDA 
169 ; PURGE _LIMIT : LONG; ! Purge work Set if above this value 
16 1 OWN 
164 1 GPGCNT : LONG, !' Global pages in working set 
165 1 PPGCNT : LONG ! Process’ pages in work ite set 
166 1 JPI_WSITEMS : VECTOR £8, LONG) i Item List to get working set items | 
1o7 PRESET ( o s (iets apgcnt’16 OR 4), 
169 = 0 i | 
170 ( = (jpis cnt*16 OR 4), 
4 4] 7 ebedkrer® | 
178 6] = 0. ! End of item List, head of SPURGWS addr desc | 
1t 7) = &X"7FFFFFFE"); ! End of SPURGWS addr desc | 
176 LOCAL | 
ive aeei nest : eret ppt eck. ; RQCB (request) data structure 
179 : LONG? a i oe of requests in List | 
180 : $Sref_bblock, ! Node data structure 
181 OcD : $Sref_bblock, ! OCD data structure 
16 NEXT_OCD : $ref_bblock, ! ditto 
18 OCD_TOUNT : LONG, ' Count of OCDs in List 
184 STATUS LONG; 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
1 
1 


If not, then set GBLSTS_K_BUSY to prevent another timestamp AST from arriving. 


1 
i 
IF .GLOBAL_STATUS CGBCSTS_K_BUS 
THEN 

RETURN; 
GLOBAL_STATUS CGBLSTS_K_BUSY] = TRUE; 


GLOBAL _STATUS [GBLSTS_K INEST At PENDING = TRUE; 


i Every twelve timestamps (once an hour), stamp the log file. Also, since we might 
! have a lot of garbage sitting in memory, flush the working set so that we do not 
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; ROST_COUNT 
: 
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: eat up unnecessary pages on small systems. 
if _cLOGTIRE..COUNTER = .LOGTIME_COUNTER + 1) GEQ 12 
eesin 
; Start of 60 minute timestamp 
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CAL 
MSGVEC : VECTOR C2, LONG), 
LOG_ROCB_: $Sref_bblock; 

LOGTIME~COUNTER = 0; 

TF ALLOCATE_DS (ROCB_K_TYPE, LOG_RQCB) 


! Temporary vector for message 


BEGIN 

MSGVEC £0} = OPCS$_LOGTIME; 

MSGVEC C1) = 0; 

FORMAT MESSAGE (.LOG_RQCB, MSGVEC); 


LOG_MESSAGE (.LOG_ROCB); 
DEACLOCATE_ROCE ([LOG_RQCB); 


i Flush the working set, but first check to make sure that we are big enough to need it 
! Note also that by te before the 5 minute section, we will most Likely fault in 
! the code and data needed by the timestamp from the Lists, rather than doing real 1/0. 


' 
' 
1 
4 
i 
if NOT (STATUS = SGETJPI CITMLST=JPI_WSITEMS)) 
pai enel stop (. STATUS); 
a NT+7GPGCNT GTR .PURGE_LIMIT 


0 


PURGE LIMIT = 0; ' Reset so we will recalculate what we need 
Srunets CINADR=JP]_WSITEMS(6)); i 


! Reuse a longword of the item List 


_* 
End of 60 minute 
END; 


'¢ 
Start of 5 minute timestamp 


For each request outstanding, notify all interested operators. 


Before ag ip | the interested operators, check to see if the request 
has been implicitly canceled. If so, insert it on a special queue for 
processing later in this routine. 


being processed. They too will be removed from the data base later in 


' 
i 
i 
i 
i 
i 
i 
; Also note that as this is nagpening. implicitly disabled operators are 
: this routine. 

i 

I 


NCR | FROM MIN_SCOPE TO MAX_SCOPE DO 


Pa 5 
ge 3 


. 2 


a 


For each request in the OCD List... 


ROST = .NEXT_ROQ ! Get current request address 


ST; 
NEXT_ROST = .RQST CROCB_L_FLINK]; ! Get next request address 
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6 BEGIN 
6 ; For each each class of operator (SYSTEM, GROUP, USER) ... 
6 NEXT_OCD = .OCD_VECTOR [(.1-1)*2); ' Get first OCD in List 
$ INCR7J FROM 1 TO .OCD_VECTOR {(.1-1)#2+1) DO 
f BEGIN 
, ; For each OCD in the operator class List... 
027 OCD = .NEXT_OCD; ' Get current OCD address 
7 NEXT_OCD = .OCD Coce L_FLINK]; ! Get next OCD address 
7 NEXT-ROST = .OCD COCB_C_RQSTFLINK; ! Get first request address 
7 INCR™K FROM 1 TO .OCDCOCD_W_RQSTCOUNT] DO | 
0 , BEGIN 
$56 
0 8 
8 
028 
028 


: 
The reply mailbox exists. Inform operators of the request. 
ke NOTIFY_LISTED_OPERATORS (.RQST) 


! After sweeping through the data base, we may have discovered some 
! implicitly canceled requests and implicitly disabled operators. 

! Process them now. The requests should be done first, as yet more 
! implicitly disabled operators may turn up. 


IMPLIED_CANCEL (); 
MPLIED-DISABLE (5; 
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3 : g 
; Make a scan through the node database 
3 NOD = .NOD_HEAD [0]; 
3 WHILE .NOD NEQ NOD_HEAD (0) 
$08 dO 
$05 BEGIN 
309 i Clear the error message flag. This Limits the rate of OPC$_CLUSCOMM error messages to 
319 one per five minutes. 
312 NOD CNOD_V_IOERR_DISPLAYED] = FALSE; 
s1¢ If we have any nodes in ‘START’ state, then request an acknowledgement from them. 
316 iF .NOD CNOD_B_STATE] EQL NOD_K_STATE_START 
1 THEN 
318 BEGIN 
1 NOD CNOD_V_ACK_PEND] = FALSE; ' Clear so that we can 
320 CLUSMSG_ACR_PLEASE (.NOD); ! request an acknowledgement 
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4 
5 
$ ! flush the contents of the RMS buffers to the disk. This also has the effect 
8 ! of writing the file header, so the information is not lost in the event of 
4 ' a@ system crash. This is pecessery because the log file is kept open until 
? } explicitly closed via REPLY/CNOJLOG. 
i 
: Hg tt SIAN CGBLSTS_K_FLUSH_PENDING) 
5 BEGIN 
GLOBAL_STATUS CGBLSTS_K_FLUSH_PENDING] = FALSE; 
7 SFLUSH (RAB = LOGFILE-RAB); 
$s 8 END; 
40 0 If we purged the working set on this pass, then save the size we have now. 
0 This lets us react to peaks in working set use, without a lot of faults 


during periods of non-activity. | 


ed et me em 


F .PURGE_LIMIT EQL 0 
HEN 


io 


BEGIN 

REGISTER 
SWAPO, LIMIT; 

Re (STATUS =" SGETJPI CITMLST=JPI_WSITEMS)) 
$Ssignal_stop (.STATUS); 


i Set new value to 10 more pears than we are currently using, but no lower 
than swap-out-page-count an 


45 
7 


, at ae 


no higher than 3 times swap-out-page-count. 


-SY1I_SWPOUTPGCNT; ! Get it into a register 
MAX T.PPGCNT +. GPGCNT+10, « SWAPO) ; Limit is larger of swapo and 10 more than current 
i 


WA WA 
DARPA ATA 
WR —SOOBNOUEWN OOM 
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vo 
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- SWAPO; Compute the max 
peat = MIN (.SWAPO, .LIMIT); 


Actual Limit is smaller of the two 


' 

Queue another timer ast. 

GLOBAL_STATUS [GBLSTS_K_BUSY) = F 

GLOBAL_STATUS CGBLSTS_K_ TIMESTAMP 

i ~g (STATUS = SSETIMR (EFN = E 
$signal_stop (.STATUS); 


a 
an 


A 


LSE; 
PENDIN FA 
FN_K_ 


ING] = FALSE; 
TIME_STAMP, BAYTIM = WAIT_DELTA, ASTADR = TIME_STAMP)) 


os 
ar 


st 


ND; 
woe = .NOD CNOD_L_FLINK]; 
' o 
: If the operator logfile was written to since the last timestamp operation, 
1 
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! End of TIME_STAMP 
-TITLE OPCSTIMESTAMP 
-IDENT \v04-000\ 
-PSECT SOWNS,NOEXE,2 

00000 GPGCNT: .BLKB 4 


OPCST IMESTAMP 
vOL=000 


000000" 0000 
03000004 099 000 0015 
0000 001 


7FFFFFFF 00000000 0000 000 001C 


00000 PURGE_LIMIT:: 
-BL B 


OFFC 00000 
SE 0c C¢2 00002 
06 0000G CF 00005 
0000G CF 20 8A Q000A 
04 O000F 
00G CF 0 88 00010 
01 0000G CF 6 €1 00015 
4 00018 
0000G CF 40 8F 88 0001C 
50 0000G CF 01 C1 000 § 
0000G CF 50 00 000 
0c 38 Di 00020 
2 19 000 
0000G CF D4 000 
E 0d 000 
00000000G 8F DD 00038 
0000G CF 3 FB 00 § 
ra) E Bhe 
04 AE 00058099 F 00 46 
8 AE . 0 of 
4 AE 9F 0005 
4 ag DD 00054 
0000G CF 02 FB 7 
8§ DD C 
0000G CF FB B25 
6— 0D 6 
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30:39 
-BLKB 4 


-LONG 51118084 
“ADDRESS GPGCNT 
sLONG 0, 51183620 
-ADDRESS PPGCNT 

-LONG 0, 0, 2147483647 


-PSECT $GLOBAL$,NOEXE,2 


4 


ALLOCATE_DS CLUSMSG_ ACK_PLEASE 
CLUSHSG STA fe 
DEALLOCA alt a 
FORMAT. MESSA GE, LOG MESSAGE 
NOTIFY-LISTED_ OPERATORS 
ROCB K bg? aut SCOPE 

X_SCOPE, LOGFICE_RAB 
OCD” VECTOR, LO OOBAL “STATUS 
XTRN NODTHEAD, WAIT DELTA 


EXTRN SYI rue ou i se T 
EXTRN LOGTIME NTER 
EXTRN LOeSGETIPTT LIBS$STOP 
EXTRN S1SSPuRGUS. SYSS$FLUSH 
EXTRN SYSSSETIMR 
PSECT $CODE$,NOWRT,2 
ENTRY aOR Save R2,R3,R4,R5,R6,R7,R8,R9,- 
SUBL2 
BLBC GL6AL” STATUS 
81 C82 #32, GCOBAL UStatus 
BIS82 #32, GLOBAL_STATUS 
ea #6, GLOBAL_STATUS, 2$ 
B1SB #64, GLOBAL_STATUS 
ADDL 4g LOGTIME_COUNTER, RO 
MOVL §. LOGTIME. “COUNTER 
CMPL 
BLSS 
CLRL LOGTIME_COUNTER 
PUSHL 
PUSHL #ROcB YPE 
CALLS see LOCATE _DS 
BLBC R 3$ 
MOVL RO att MSGVEC 


CLRL msGvE Cts 
PUSHAB MSGVEC 


PUSHL Hoefer 

CALLS #2, FORMAT_MESSAGE 
PUSHL 

CALLS “L0G, MESSAGE 
PUSHL to O6. 


Page 
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00006 CF Qi FB a CALLS #1, DEALLOCATE_ROCB ; 
— 7C A 3S: CLRO 20 = §P) : 0233 
7E 04 C CLRL = = (SP) : 
0000' cr F PUSHAB JPI_WSITEMS : 
— 7¢ CLRO 0 =( SP) : 
re D4 0007 CLRL Os = (SP) : 
000000006 90 F 76 CALLS #7, SYSSGETJPI : 
8 0 D 97 MOVL RO, STATUS : 
° 0138 8} 000 Bk stArus, - : 
50 900 ' CF 0000' CF C1 00086 4s: ADDL3 GPGCNT, PPGCNT, RO + 0236 
000° CF 0 b 99 CHPL” RO, PURGE _LIMIT : | 
F BLEQ 5 : 
9000" CF p4 009 CLRL —- PURGE_LIMIT : 0239. 
000' CF 9F 00099 PUSHAB JPI_WSITEMS+24 : 0240, 
000000006 00 1 Fe 009D CALLS #1, SYS$PURGWS : | 
52 000000006 &F 1 C3 000A4 5S: SUBL3 #1. WMIN_SCOPE, I + 0263. 
45 11 OOOAC BRB 11§ : 
50 52 01 78 OOAE 6$: ASHL #1, I, RO + 0268 | 
5 OO00GCF40 DO 0008 MOVL  OCD_VECTOR-8(ROJ, NEXT_OCD : 
SA 00006CF 40 DO 00088 MOVL § OCDIVECTOR=4CROJ. R10 > 0269) 
55 D4 0008 CLRL J ; 
gp 11 000C BRB 10$ : 
53 8 DO 000C2 7$: MOVL NEXT_OCD, OCD > 0274 
58 63 DO 000¢ MOVL (OCDY, NEXT OCD > 0275 
59 3¢ a3 pO 000¢8 MOVL $9(0Cb), NERT_ROST : 0276 
57 A a3 3C 000CC MOVZWL 58(OCD). R + 0277 
54 04 00000 CLRL sé ; 
17 11 00002 BRB 9$ : 
56 59 DO 90004 8$: MOVL NEXT_RQST, RQST : 0282 
59 66 DO 00007 MOVL (ROST), NEXT_RQST : 028 
56 DD 900A PUSHL  RQS > 0284 
0000v CF gi FB 00DC CALLS #1, IMPLICITLY_CANCELED ; 
07 0 €E8 000E1 BLBS RO, 9S ; 
56 DD O00E4 PUSHL  RQST : 0289 
00006 CF o4 FB OO0E6 CALLS #1, NOTIFY_LISTED_OPERATORS : 
ES 54 7 £3 OOOEB 9S: AOBLEQ R7. K, 8$ > 0284 
CF 55 5a F3 OOOEF 10$:  AOBLEQ R10, 3, 7$ + 0269 
B3 52 000000006 8F F3 000F3 11$:  AOBLEQ x_SCOPE, I, 6$ > 0263 
0000v CF 00 FB OOOF CALLS #0, TMPLIED_CANCEL : 0299 
0000v cf 00 FB 001 CALLS #0, IMPLIED“DISABLE : 0300 
3 00006 CF b0 010 MOVL O0_HEAD, NOD : 0304 
50 00006 cr 010A 12$ MOVAB NOD"HEAD, : 0305 
50 3 p 91 F CMPL NOD? RO ; 
1A 112 BEQL 4$ ; | 
2a AB 04 BA 0114 BICB2 #4, 42(NOD) : 0312 | 
02 22 Ad 91 00118 CMPB  =s-s«-34(NOD), #2 : 0316) 
B 12 0011C BNEQ 13$ : | 
2a AB 1 BA 116 BICB2 #1, 42(NOD) ; 0319 
00006 CF ; pe i 4 CALLS #1, CLUSMSG_ACK_PLEASE Nees 
gf 63 8 129 138: MOVL (NOD), NOD” ~~ 5 0338 
DC 11 O012C BRB ; 030 
00006 fF % : 14$: STB GLOBAL _STATUS : 0332 
00006 CF 80 8F BA 01 BICB2 #128, GLOBAL_STATUS : 0335 
00006 CF 9F 0013A PUSHAB LOGFILE_RAB ; 0336 


OPCSTIMESTAMP 
v06-000 


000000006 


000000006 


51 0000° 


0000° 
00006 


000000006 


000000006 


; Routine Size: 437 bytes, 


Routine 


00 


= 
NOS 


VMInw 
o 


OOmw WM 
=O -—-O-—- On" 


WIS 
Dao 


o oO 
o oO 


0000' 


0000' 


000° 


60 


FE68 
00006 


—DDOL HL BWAM NO" WOWOWW  B M MDOWVMM Memrn 


ONWWNDOM OF NWVMOMNOMNOMOONOUMO WNONNEOO 


RLSIESSSF 


VINO COSMO 


>> 
on 


1 
1 
f 13 
9 14 
14 
7C¢ 148 
4 14D 
fF 14F 
C 1 
De 0 
cee 
3 Ho, 
eh 90189 
D1 aE 
is 0177 
D 0179 
C4 0017C 
D1 0017F 
15 00182 
D0 001 
00 001 
BA Bat 
D4 001 
oF 001 
9F 001 
DD 001 
FB 1 
p0 1 
E8 1 
DD 1 
FB 1 
04 1 


SCODES + 0000 


on 


16$: 


17$: 


“1986 92:86: 


0:59 


7 AX-11 Bliss s-32 V4.0-74 
OPCOM. SRCJTIMESTAMP.B32;1 
SYSSELUSH 
Puace Limit 
18$ 
-(SP) 
-(SP) 
JPI_WSITEMS 
=(SP) 


af 
#7, SYSSGETJPI 
roe 


19$ 
1 isubouTPocuT, gpiAro 
ta PPGCNT 


1 

LIMIT RO 
PURGE_LIMIT 

#96," GLOBAL, STATUS 


TIME _STAMP 
WAIT. DELTA 


#4, SYSSSETIMR 
RO, STA Tys 
STATUS, os 
#1, LIBSSTOP 
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OPCSTIMESTAMP 18-5 1986 01:57:57 VAX=11 Bliss-32 v4.0-74 Page 11. 
90-000 12-Sep-1984 12:50:59  LOPCOM.SRCITIMESTAMP.B39; 1 * 


| 
; i i } GLOBAL ROUTINE IMPLICITLY_CANCELED (RQST) = | 
: 374 72 1 14 | 
3 Ne it : Functional description: | 
3; 7 2 1! Check a given request to see if it has been implicitly canceled. 
; 378 6 1! An implicit cancelation is defined as the requestor deleting the 
; 379 anak reply mailbox without first having sent an explicit request cancelation 
3 4 1! message to OPCOM. 
; 381 Ty if | 
3 ¢ 0 39 ! Input: | 
: Se 0 Be ; RQST : address of a request control block | 
; 84 1 | Implicit Input: 
: 3B9 0385 1i 
; 388 0386 1! None. 
; 389 $444 1! 
; 390 388 1 ! Output: 
; 391 0389 1! 
: 39 344 1! None. 
; $35 1! 
; 394 0 4 1! Implict output: 
; 395 0393 1! 
; 396 0394 1! None. | 
: 397 0395 1! 
: 398 0396 1! Side effects: 
; 399 0397 1! 
; 400 0398 1! If the request has been implicitly canceled, it will be inserted 
3 ret $464 : into a queue of canceled requests. The queue will be processed later. 
: 40 0401 1 ! Routine value: | 
: 404 ot 4 1! ; | 
; 405 0405 1! TRUE : the request has been implicitly canceled 
; 406 0406 1! FALSE : the request is still active 
: 407 0405 1 in | 
; 408 0406 1 
: 409 0407 2 BEGIN ! Start of IMPLICITLY CANCELED | 
: 410 0408 
3 411 0409 2 MAP 
: 61g 9619 RQST : Sref_bblock; ! Request control block | 
: 416 Belg EXTERNAL ROUTINE 
: 415 041 CLUSUTIL_SYSTEMID_EQUAL : JSB_ROR1; 
2 oi8 414 
3; «641 0415 EXTERNAL 
: 418 Beis GLOBAL_STATUS : BITVECTOR (32), 
: 419 1 CANCELED_RQST_Q : VE 7 ! List head of canceled requests | 
; $20 0418 LCL_NOD : S$ref_bblock, 
: 421 19 MBX_F AO : $bblock; ! FAO control string 
s OS¢ 420 | 
; 4 1 LOCAL 
; 424 ¢ MBX _NAME : Sbblock CMAX_DEV_NAM],! Mailbox device name buffer 
: 425 4 MBX _DESC : soesc plock ! Mailbox device name descriptor 
i 426 42h DEV CHAR : Sbblotk COBSK_LENGTH],! Mailbox dev. char. buffer | 
3 ? 3 b4 2 CHAR _DESC : $desc_block; : Mailbox dev. char. descriptor 


OPCSTIMESTAMP aie -1984 AX=11 Bliss-32 V4.0-74 | 
vOs-000 12-888-198e 92:30:89  Yorcom. Shed ines tame .045; 1 Pose if 
| 


; 4 7 ' 
: 2 , 2 8 Do not implicitly cancel requests from other nodes 
; 2 ¢ re ? if ;,GLOBAL_STATUS CGBLSTS_K_IN_VAXcluster] | 
: 2 ¢ " ¢ Boy CLUSUTIL_SYSTEMID_EQUAL (RQST CRQCB_T_SYSTEMIDJ, LCL_NOD CNOD_T_NODE_SYSTEMID)) | 
co | 
; 4 4 RETURN FALSE; ! Not disabled 
es 8 ¢ g 8 i | 
: 439 4 $ i Check to see if the request has been implicitly canceled. 
; 440 438 ! The simplest way to do this is to attempt to get the device 
; 461 439 : characteristics. If the device no longer exists, then assume 
; 44 0440 ! the user is no longer interested in the request. First format 
> 44 0441 ! the mailbox name from the information in the RQCB. 
ee te | 
> 446 0444 2 MBX_DESC CDSC$W_LENGTH] = MAX_DEV_NAM; ! Create a descript | 
3; 4467 0445 MBX_DESC (CDSC$B_ “PIAse TT eaGes ee 
; 448 044 MBX_DESC CDSC$B_CLASS = 0; | 
; 449 044 MBX“DESC CDSCSA-POINTER] = MBX_NAME; | 
; 450 0448 $FAO (MBX_FAO, MBX_DESC, MBX_DESC, *RQST CROCB_W REPLYMBX]) ; 
> 451 0449 HAR_DESC-CDSC$W_LENGTH) = BIBSK.LENGTH; T Create a descriptor 
; +28 0450 CHAR_DESC [DSC$B =bryred = 0; 
; 45 0451 CHAR_DESC CDSC$B_CLASS = 0; 
; 454 O49¢ CHAR-DESC CDSCSA-POINTER] = DEV_CHAR; 
; 455 045 IF (SGETDEV (DEVRAM=MBX DESC, PRIBUF=CHAR_DESC)) 
Bo A hee 
: rte bee$ ; The reply mailbox still exists. 
: 460 0458 RETURN FALSE | 
: 461 0459 ELSE 
30) Boe 
; Pre: Bees : The reply mailbox no ye exists. Assume request canceled. | 
: 466 0464 ROST CROSTS_V_IMPCANCEL] = 
: 467 0465 ep oped (ROST TROCB_L COSBLFLINK]. CANCELED_RQST_Q); 
: 0466 RETURN TRUE; 
: 25 oc6s 3 EAD: | 
: 471 0469 1 END; ! End of IMPLICITLY_CANCELED 
-EXTRN  CLUSUTIL _SYSTEMID_EQUAL | 
-EXTRN CANCELED-RQST_Q | 
-EXTRN LCL_NOD, MBX | 
~EXTRN SYSSFAO, SY 9SGETDEV 
0004 00000 -ENTRY IMPLICITLY CANCELED, Save R2 ; 0370 | 
5 FF3C_ CE 43 0006 MOVAB -196 : 
1 90006 CF E9 0000 BLBC_ GLOBAL SfaTus+1, 1$ : 0430 | 
51 00006 CF 0000005 F ¢1 0000C ADDL 5 » LCLNOD, Rf 0432 | 
50 04 AC 1C + 0016 ADDL RQST, R 3 
00006 30 0001B BSBW = CLUSUTIL_SYSTEMID_EQUAL : 


N 10 
OPCSTIMESTAMP 16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-7 
9052000 12: ~aep- 1382 93:30:26 LOPcoM. SR CHT TIMESTA MP. b3 31 
4F 0 €9 0001 LBC 
7c «OAL 40 Ff bh f 1$ MOVZBL net, tax DESC 
BC AD AD : 6 OVAB X"NAME> MBX_DESC+4 
32 4 AC B OVL poet 
A2 3C F MOVZWL 46(R9), =(SP) 
BB AD OF 90 3 PUSHAB MBX_DES 
B8 AD OF é PUSHAB MBX~DESC 
00006 CF 9F 000 PUSHAB MBX 
000000006 00 4 FB 0003D ALLS #4 
6E 74 BF 9A 00044 MOVZBL wil ESC 
04 AE 08 AE 3 0048 VAB vacwaR, went _DESC+4 
7E 7 0940 LRO 
08 AE 9F 0004F PUSHAB CHAR DESC 
7E D4 90052 LRL ss 
BB AD 9F 00054 PUSHAB MBX_DESC 
000000006 00 03 FB 90097 CALLS #5, SYSSGETDEV 
F 0 ‘ 005 BLBS 
2A A2 01 88 00061 BISB2 42(R2) 
00006 CF 008¢ C2 OE 00065 INSQUE 11603) CANCELED_RQST_Q 
50 01 DO 0006C MOVL » RO 
04 0006F RET 
50 D4 00070 2$ CLRL — RO 
04 00072 RET 


; Routine Size: 115 bytes, Routine Base: $CODE$S + 0185 


a Eta 0} 37:22 AX-11 OL iger ae vs 0-78 Page 


1 
759 OPCOM. TIMESTAMP .B32;1 (4). 


: ot? 4 ! GLOBAL ROUTINE IMPLIED_CANCEL : NOVALUE = ; 

; $75 472 1 te 

: of th : } Functional description: 

; 478 475 1! For all requests on the canceled request queue, create a | 
; 479 476 1! cancellation message from the information in the request 
: 480 0477 1! control block, and CALL the request cancellation handler 

; ret rf 4 ! } as if the user had sent the cancellation message. 
; 48 0480 1 ! Input: 
> 484 48) 1! 

3; 485 4 § , None. 
3; 6 4 1! 
: 487 484 1°! Implicit Input: | 
; 488 0485 1! 

; 489 Bees : CANCELED_RQST_Q : The List head of all implicitly canceled requests. 

; 491 0488 1 ! Output: | 
; 49 0489 1! 

; 49 0490 1! None. 

: 494 0491 1! 

; 495 0492 1! Implict output: 

; 496 0495 1! 

; 497 0494 1! None. 

; 498 0495 1! 
; 499 0496 1 ! Side effects: 
; 500 0497 1! | 
; $01 0498 1! ALL interested operators will be notified of the canceled requests. 

; 20g 0499 1! As this is done, ry eee disabled operators may be discovered. 

; 3 0500 1! Those operators will be placed on the implicit disable queue and 

; 504 0501 1! be processed later. 
; 505 Fa4 1! | 
; 506 0503 1 ! Routine value: 
; 507 0504 1! 
; 508 0505 1! None. 
; TOP 0506 1 !-- 
; 510 0507 1 
s $311 0508 2 BEGIN ! Start of IMPLIED_CANCEL 
3 a1¢ 0509 
s oe 0510 EXTERNAL ROUTINE 

s 314 0511 CNCL_ HANDLER : NOVALUE, ! Old CANCEL message handler 
3 313 bate NOTIFY_LISTED_OPERATORS; ! Notify a list of operators | 
; 319 0814 5 EXTERNAL | 
3 213 Bat? CANCELED_RQST_Q : VECTOR; ! List head of canceled requests | 
: 520 0317 LITERAL 
3 Sel 518 MSG_HDR_SIZE = (SBYTEOFFSET(RQCB_B_RQSTCODE) - SBYTEOFFSET(RQCB_W_MSGTYPE)), 
; 2 ¢ 0519 OLD_MSG_SIZE = 

i 3¢3 03 9 MSG-BUF-SIZE § = MSG_HDR_SIZE + OLD_MSG_SIZE; | 
: 525 5 § MACRO 

; $ 5 REQUEST_TYPE = MSG_HDR_SIZE, 0, 8, O%, 

3 fe 524 TARGET_PASK = MSG_HDR_SIZE+1, 0, ¢3° te 

: 268 Bes? REQUEST_ID = MSG_HDR_SIZE+4, 0, 52, O02; 


————E———e — —EEE —————EEE di cr 


1 
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_MSG_ : $desc_block,” L request descrip 
> S$ref_Bblock; i Request control block 


Vwn— 


Create the message buffer descriptor. We need do this only once. 


pejejlejolelelelojl ole) 


MSG_BUF _SIZE; 


CANCEL_MSG_BUF; 


For all requests on the queue, create a cancel message 
(old format) and call the cancel request handler. 


Ge KOO OO + oe ot oe eee 


HI - REMQUE (.CANCELED_RQST_Q, RQST) DO 


= .RQST = (SBYTEOFFSET(ROCB_L etsy ° hyd Me Ag aS L_FLINK)); 
SMOVE (MSG _HDR SIZE, RQST gAacs QM ist. CANCEL_MSG_BUF ) 
L UEST_ TYPE Pcs" RG 


= ANCEL; 
= .RQST CRQCB_L _ATTNMASK1; 


PUPVPUPUSU SUSI SISSIES 


DPA BE EE EE 


-RQST CROCB"L-RQSTIDI; 


Ab Ab Ah Ah Ab Ab Ab Ab dh dh dh dh dh dh ah dh ah ah ah ah ab ah ah ab al al valvalealval eal 
PUPS BS BS BB BE AAAI rnonorny 


NOUS WN OO OONAUE WN SO CONOUES WN OOO 


LOCAL 
CANCEL_MSG_BUF =: $bblock CMSG_BUF SIZE], ' CANCEL request err. buffer 
CANCEL_MSG_DESC 1" CANCEL 
RQST 
a 
1 


See Se Oe Oe Oe Oe Se OH Se Se Se Se Ge SH Se Se Se Oe Oe Se Se oe HSH Se os Oe oe Shee 
MAMA) 

SOWDNAUEWN (OO OONOU EWN —O 0M 
COOOCOCOCOOOCOCCOOOOOOOCOO 


o 


END; ! End of IMPLIED_CANCEL 


-EXTRN CNCL_HANDLER 


007¢ 00000 .ENTRY IMPLIED CANCEL, Save R2,R3.R4,R5,R6 
5E 34 C2 00002 SUBL2 #52, SP 
2E DD 00005 PUSHL 
04 AE 08 AE 9E 00007 MOVAB  CANCEL_MSG_BUF, CANCEL_MSG_DESC+4 
56 0000G DF OF OO000C 1$: REMQUE aCANCECED _RasT_ _Q, RQST™ 
24 1D 90011 BVS 
56 FF74 6 3 0013 MOV -140(R 
08 AE 3 A6 36 2 90018 MOVC3 = #38, (ne earns. CANCE _MSG_BUF 
—E AE 0 OO1E MOVE #5 CANCEL MSG_BUF 
AE 18 00 5c =6A6 CFO 9902 INSV 92¢RO #0, 734, CANCEL_MSG_BUF +39 
32. AE 64 A6 dO 00029 MOVL 7bocrastS. CANCEL-MSG_BUF42 ~ 
5E DD 0002E PUSHL SP 
00006 CF 01 FB 00 0 CALLS #1, CNCL_HANDLER 
D5 11 00035 BRB 1$ 
04 00037 2$ RET 


; Routine Size: 56 bytes, Routine Base: S$CODE$ + 0228 
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GLOBAL ROUTINE IMPLIED_DISABLE : NOVALUE = 


OPCSTIMESTAMP 
v04 


2 V4.0-74 Page 1 
ESTAMP.832;1 (5 


'e4 
} Functional description: 


FIFI 
o 
BPoS 


For all implicitly disabled operators create an operator disable : 
reenn By bee the info in the operator control block, and CALL the 


3 1 

5 

3 60 1 

eo | 

3 e9 88 1! 

$ 208 8 64 1! 

: $? 65 1! opera enable message handler as if the user had sent the message. 
$ 0 3 28 1! Note that notification of the operator disable in NOT sent to the 
. ory of i! operator. This is because the terminal is no longer an operator 

; Lf: 0 $8 ,! terminal, and the user now at the terminal doesn't need to see the 
: ef 8 § 1! message. 

; 574 0 1! 

: 575 0571 1°! Input: 

; 576 Berg 1! 

3 AG 0575 1! None. 

3; S78 0574 1! 

3 228 B23 : Implicit Input: 

; 36) B28 ! DISABLED_OPER_Q : The List head of all implicitly disabled operators. 
3 383 0579 1 ! Output: 

; 4584 0580 1! 

3 33S 0581 1! None. 

; 586 Bane 1! 

; 587 0583 1 ! Implict output: 

; 588 0584 1! 

; 589 0585 1! None. 

; $90 0586 1! 

3 391 0587 1 ! Side effects: 

; 238 0588 1! 

; 59 0589 1! As operators are disabled, more implicitly disabled operators may 
: 594 0590 1! be discovered. If so, they will be inserted on the queue, and 

s 3 0591 1! processed in turn. Likewise, as operators are disabled, some requests 
; 596 8236 1! may lose operator coverage. These requests will be canceled and 

; 597 0593 1! the user notified. 

; 598 0594 1! 

; 599 0595 1 ! Routine value: 

; 600 0596 1! 

; 601 0597 1! None. 

; 60 0598 1 !-- 

; 60 0599 1 

: 604 0600 BEGIN ! Start of IMPLIED_DISABLE 
; 605 0601 

; 606 060 EXTERNAL : ; 

; 607 060 DISABLEP_OPER_Q : VECTOR; ! List head of disabled operators 
; 608 0604 

; 609 0605 LOCAL 

; 610 06 STATUS; 

: 611 060 

: 612 0608 STATUS = 1; | wee TEMP see 

: 613 0609 2 

3: 614 0610 1 END; ! End of IMPLIED_DISABLE 


-EXTRN DISABLED_OPER_Q 


OPCSTIMESTAMP 16-5 Sep-19 AX-11 Bliss-32 V4.0-74 
7042000 Ber }8Re Pbieb:eh «| PORCAA Ski ser se We Oo Zes 
0000 0000 LENTRY IMPLIED_DISABLE, Save nothi 
50 op 0900¢ HOVL. #1. STATUS ne Pompei. 
4 0000 RET 


; Routine Size: 6 bytes, Routine Base: S$ CODES + 0260 


s 615 0611 } 

; 616 pele ! End of TIMESTAMP 

; 617 061 0 ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes 

: SGLOBALS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 40 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 614 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


TES Eiger ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 

: .$255$DUA28: CSYSLIBILIB.L32;1 18619 21 0 1000 00:01.8 
3 ~$255$DUA28: COPCOM.OBJJOPCOMLIB.L32;1 633 31 4 43 00:00.9 
3 COMMAND QUALIFIERS 

4 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:TIMESTAMP/OBJ=OBJ$: TIMESTAMP MSRC$:TIMESTAMP/UPDATE=(ENHS: TIMESTAMP) 
; 618 0614 0 

: Size 614 code + 44 data bytes 

; Run Time 00:15.3 

; Sleesed Time: 00:55.5 

3; Lines/CPU Min 2406 

; Lexenes/CPU-Hin; 16295 

3 155 pages 


me fh ay Complete 
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